cr	equ	0Dh		;������� �������
lf	equ	0Ah		;������� ������
;
;	������� ������ ������
;	---------------------
;
Send_crlf:
        push	ax
        push	dx
        mov	    ah, 2 		                ;������� ������
        mov	    dl, cr		                ;��������� ������
        int	    21h		                    ;����� �������
        mov	    dl, lf
        int	    21h
        pop	    dx
        pop	    ax
        ret
;
;	������� ������
;	--------------
;
Clear_screen:
        push	ax
        push	bx
        push	cx
        push	dx
        xor	    al, al          		;�������� ��� ����
        xor	    cx, cx		            ;������� ����� ���� � (0,0)
        mov	    dh, 49          		;������ ������ ������ - 49
        mov	    dl, 79          		;������ ������� � 79 �������
        mov	    bh, 7           		;��������� ���������� ��������
        mov	    ah, 6           		;��������
        int	    10h		                ; ����
        xor	    dl, dl		            ;������� ����������
        xor	    dh, dh          		; �������
        xor	    bx, bx		            ;������� �������������
        xor	    al, al          		;���������
        mov	    ah, 2		            ; �������
        int	    10h         		    ; � �������� �����
        pop	    dx
        pop	    cx
        pop	    bx
        pop	    ax
        ret
